home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic new SourceCode and Projects / Easy HTML editor / frmabout.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-04-24  |  7.9 KB  |  249 lines
  1. VERSION 5.00
  2. Begin VB.Form frmabout 
  3.    BackColor       =   &H80000007&
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "About $mTp eazy HTML"
  6.    ClientHeight    =   3960
  7.    ClientLeft      =   2940
  8.    ClientTop       =   2595
  9.    ClientWidth     =   6030
  10.    LinkTopic       =   "Form3"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3960
  14.    ScaleWidth      =   6030
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.CommandButton Command1 
  17.       Caption         =   "Exit"
  18.       Height          =   375
  19.       Left            =   2520
  20.       TabIndex        =   11
  21.       Top             =   3480
  22.       Width           =   615
  23.    End
  24.    Begin VB.Label label5 
  25.       Alignment       =   2  'Center
  26.       BackStyle       =   0  'Transparent
  27.       Caption         =   "Email me "
  28.       BeginProperty Font 
  29.          Name            =   "MS Sans Serif"
  30.          Size            =   8.25
  31.          Charset         =   0
  32.          Weight          =   400
  33.          Underline       =   -1  'True
  34.          Italic          =   0   'False
  35.          Strikethrough   =   0   'False
  36.       EndProperty
  37.       ForeColor       =   &H00FF0000&
  38.       Height          =   255
  39.       Left            =   2040
  40.       TabIndex        =   10
  41.       Top             =   3120
  42.       Width           =   1575
  43.    End
  44.    Begin VB.Label Label4 
  45.       Alignment       =   2  'Center
  46.       BackStyle       =   0  'Transparent
  47.       Caption         =   "www.hack-tha-world.xs3.com"
  48.       BeginProperty Font 
  49.          Name            =   "MS Sans Serif"
  50.          Size            =   8.25
  51.          Charset         =   0
  52.          Weight          =   400
  53.          Underline       =   -1  'True
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       ForeColor       =   &H00FF0000&
  58.       Height          =   255
  59.       Left            =   1680
  60.       TabIndex        =   9
  61.       Top             =   2640
  62.       Width           =   2415
  63.    End
  64.    Begin VB.Label Label3 
  65.       Alignment       =   2  'Center
  66.       BorderStyle     =   1  'Fixed Single
  67.       Caption         =   "Coded by $mTp"
  68.       Height          =   255
  69.       Left            =   1200
  70.       TabIndex        =   8
  71.       Top             =   2160
  72.       Width           =   3255
  73.    End
  74.    Begin VB.Label Label2 
  75.       BackStyle       =   0  'Transparent
  76.       Caption         =   "{-$mTp-}"
  77.       BeginProperty Font 
  78.          Name            =   "Tahoma"
  79.          Size            =   9.75
  80.          Charset         =   0
  81.          Weight          =   400
  82.          Underline       =   0   'False
  83.          Italic          =   0   'False
  84.          Strikethrough   =   0   'False
  85.       EndProperty
  86.       ForeColor       =   &H000000FF&
  87.       Height          =   375
  88.       Index           =   5
  89.       Left            =   3240
  90.       TabIndex        =   7
  91.       Top             =   1680
  92.       Width           =   1095
  93.    End
  94.    Begin VB.Label Label2 
  95.       BackStyle       =   0  'Transparent
  96.       Caption         =   "{-$mTp-}"
  97.       BeginProperty Font 
  98.          Name            =   "Tahoma"
  99.          Size            =   9.75
  100.          Charset         =   0
  101.          Weight          =   400
  102.          Underline       =   0   'False
  103.          Italic          =   0   'False
  104.          Strikethrough   =   0   'False
  105.       EndProperty
  106.       ForeColor       =   &H000000FF&
  107.       Height          =   375
  108.       Index           =   4
  109.       Left            =   2400
  110.       TabIndex        =   6
  111.       Top             =   1680
  112.       Width           =   1095
  113.    End
  114.    Begin VB.Label Label2 
  115.       BackStyle       =   0  'Transparent
  116.       Caption         =   "{-$mTp-}"
  117.       BeginProperty Font 
  118.          Name            =   "Tahoma"
  119.          Size            =   9.75
  120.          Charset         =   0
  121.          Weight          =   400
  122.          Underline       =   0   'False
  123.          Italic          =   0   'False
  124.          Strikethrough   =   0   'False
  125.       EndProperty
  126.       ForeColor       =   &H000000FF&
  127.       Height          =   375
  128.       Index           =   3
  129.       Left            =   1560
  130.       TabIndex        =   5
  131.       Top             =   1680
  132.       Width           =   1095
  133.    End
  134.    Begin VB.Label Label2 
  135.       BackStyle       =   0  'Transparent
  136.       Caption         =   "{-$mTp-}"
  137.       BeginProperty Font 
  138.          Name            =   "Tahoma"
  139.          Size            =   9.75
  140.          Charset         =   0
  141.          Weight          =   400
  142.          Underline       =   0   'False
  143.          Italic          =   0   'False
  144.          Strikethrough   =   0   'False
  145.       EndProperty
  146.       ForeColor       =   &H000000FF&
  147.       Height          =   375
  148.       Index           =   2
  149.       Left            =   3240
  150.       TabIndex        =   4
  151.       Top             =   360
  152.       Width           =   1095
  153.    End
  154.    Begin VB.Label Label2 
  155.       BackStyle       =   0  'Transparent
  156.       Caption         =   "{-$mTp-}"
  157.       BeginProperty Font 
  158.          Name            =   "Tahoma"
  159.          Size            =   9.75
  160.          Charset         =   0
  161.          Weight          =   400
  162.          Underline       =   0   'False
  163.          Italic          =   0   'False
  164.          Strikethrough   =   0   'False
  165.       EndProperty
  166.       ForeColor       =   &H000000FF&
  167.       Height          =   375
  168.       Index           =   1
  169.       Left            =   2400
  170.       TabIndex        =   3
  171.       Top             =   360
  172.       Width           =   1095
  173.    End
  174.    Begin VB.Label Label2 
  175.       BackStyle       =   0  'Transparent
  176.       Caption         =   "{-$mTp-}"
  177.       BeginProperty Font 
  178.          Name            =   "Tahoma"
  179.          Size            =   9.75
  180.          Charset         =   0
  181.          Weight          =   400
  182.          Underline       =   0   'False
  183.          Italic          =   0   'False
  184.          Strikethrough   =   0   'False
  185.       EndProperty
  186.       ForeColor       =   &H000000FF&
  187.       Height          =   375
  188.       Index           =   0
  189.       Left            =   1560
  190.       TabIndex        =   2
  191.       Top             =   360
  192.       Width           =   1095
  193.    End
  194.    Begin VB.Label Label1 
  195.       BackStyle       =   0  'Transparent
  196.       Caption         =   "$mTp"
  197.       BeginProperty Font 
  198.          Name            =   "Verdana"
  199.          Size            =   36
  200.          Charset         =   0
  201.          Weight          =   700
  202.          Underline       =   0   'False
  203.          Italic          =   0   'False
  204.          Strikethrough   =   0   'False
  205.       EndProperty
  206.       ForeColor       =   &H00C0C0C0&
  207.       Height          =   975
  208.       Index           =   1
  209.       Left            =   1560
  210.       TabIndex        =   1
  211.       Top             =   600
  212.       Width           =   2295
  213.    End
  214.    Begin VB.Label Label1 
  215.       BackStyle       =   0  'Transparent
  216.       Caption         =   "$mTp"
  217.       BeginProperty Font 
  218.          Name            =   "Verdana"
  219.          Size            =   24
  220.          Charset         =   0
  221.          Weight          =   700
  222.          Underline       =   0   'False
  223.          Italic          =   0   'False
  224.          Strikethrough   =   0   'False
  225.       EndProperty
  226.       ForeColor       =   &H0000FF00&
  227.       Height          =   735
  228.       Index           =   0
  229.       Left            =   2160
  230.       TabIndex        =   0
  231.       Top             =   1080
  232.       Width           =   1695
  233.    End
  234. Attribute VB_Name = "frmabout"
  235. Attribute VB_GlobalNameSpace = False
  236. Attribute VB_Creatable = False
  237. Attribute VB_PredeclaredId = True
  238. Attribute VB_Exposed = False
  239. Private Sub Command1_Click()
  240. Unload Me
  241. End Sub
  242. Private Sub Label4_Click()
  243. retvalue = Shell("Start.exe " & "www.hack-tha-world.xs3.com", 0)
  244. 'you can also use the ShellExecute Api but this way is easier!
  245. End Sub
  246. Private Sub Label5_Click()
  247. retvalue = Shell("Start.exe " & "mailto:warthog@mad.scientist.com", 0)
  248. End Sub
  249.